#ERROR: list flattening
#!/usr/bin/perl
# complex2.pl
use warnings;
use strict;
 
my (@outer, @inner);
foreach my $element (1..3) {
   @inner = ("one", "two");  
   push @outer, @inner;
}
print '@outer is ', "@outer \n";